home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Softdisk G-S 94
/
SGDS 94.2mg
/
SDGS.94
/
SDC94
/
C
/
TECHTALK
(
.txt
)
< prev
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Applesoft BASIC Source Code
|
1989-06-18
|
181 b
|
7 lines
|
[FC] Applesoft BASIC Program (0x0801)
1 PRINT CHR$(21): HGR2
2 TEXT : HOME : VTAB 22
3 HGR2 : GOSUB 100: PRINT CHR$(4)"brunqd.lingo.bpk"
10 POKE 103,1: POKE 104,96: POKE 24576,0: PRINT CHR$(4)"-qd.lingo.prg"
90 REM GS MONO
100 CALL PEEK(121) + PEEK(122) *256 +28: REM 8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF ^ TAB( IF ) TAB( <CTRL-0x09> PLOT ) TAB( `
110 RETURN